﻿Public Class frmBusqueda

    Private Sub btnVolver_Click(sender As Object, e As EventArgs) Handles btnVolver.Click
        frmMenu.Visible = True
        Me.Close()
    End Sub

    Private Sub frmBusqueda_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub cbBusqueda_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbBusqueda.SelectedIndexChanged
        lstResultados.Text = Module1.obtenerCartaPorId(1).Titulo
    End Sub
End Class